在VB中如何写"设计一个解决给定一个四位数的年份，判断它是否为闰年”的算法

a = InputBox("请输入四位数的年份")

X1 = a / 4

X2 = Int(a / 4)

If X1 = X2 Then

  Print a + "年是闰年"

Else

  Print a + "年不是闰年"

End If

自己看百度知道的相关问题吧，都被人问了N遍了。